home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos2.d64 / sOFT cOPY v2 (.txt) < prev    next >
Commodore BASIC  |  1995-08-05  |  3KB  |  87 lines
  1. 10 REM GEOS HARDCOPY AUF DISK
  2. 12 OPEN1,8,15,"I:0"
  3. 14 RESTORE
  4. 18 FORI=1TO573
  5. 20 READ A:S=S+A
  6. 22 PRINTCHR$(19);573-I;CHR$(157);" ";
  7. 24 NEXT:RESTORE
  8. 26 IFS<>59541THENPRINT"FEHLER IN DEN DATAS !":STOP
  9. 30 F$="HARDCOPY V1.3"
  10. 32 OPEN2,8,2,F$+",U,W":GOSUB104
  11. 34 FORI=1TO460:READA
  12. 36 PRINT#2,CHR$(A);:NEXT:GOSUB104
  13. 38 CLOSE2
  14. 42 A=1:B=0
  15. 44 T=A:S=B:PRINT#1,"B-A:0";T;S
  16. 46 INPUT#1,N,T$,A,B:IFA=18THENA=19:B=0
  17. 48 IFN>0THEN44
  18. 50 OPEN3,8,3,"#0":PRINT#3
  19. 52 PRINT#1,"U1";3;0;T;S
  20. 54 FORI=1TO113:READB:PRINT#3,CHR$(B);:NEXT
  21. 56 FORI=1TO141
  22. 58 PRINT#3,CHR$(0);
  23. 60 NEXT
  24. 62 PRINT#1,"U2";3;0;T;S
  25. 68 PRINT#3
  26. 70 A$=CHR$(18):B$=CHR$(1)
  27. 72 A=ASC(A$):B=ASC(B$):PRINT#1,"U1";3;0;A;B
  28. 74 GET#3,A$,B$
  29. 76 FORI=0TO7
  30. 78 PRINT#1,"B-P";3;I*32+5
  31. 80 FORJ=1TOLEN(F$)
  32. 82 GET#3,W$:IFW$<>MID$(F$,J,1)THENK=0:GOTO86
  33. 84 K=K+1
  34. 86 NEXTJ
  35. 88 IFK=LEN(F$)THEN92
  36. 90 NEXTI:GOSUB104:GOTO72
  37. 92 PRINT#1,"B-P";3;I*32+21
  38. 94 PRINT#3,CHR$(T)CHR$(S)CHR$(0)CHR$(5);
  39. 96 PRINT#3,CHR$(88)CHR$(4)CHR$(5)CHR$(20)CHR$(11)CHR$(2);
  40. 98 PRINT#1,"U2";3;0;A;B
  41. 100 CLOSE1:PRINT"O.K.":END
  42. 104 INPUT#1,N,T$:IFNTHENPRINT"ERROR: ";T$:STOP
  43. 106 RETURN
  44. 110 DATA162,255,160,143,134,4,132,5,162,79,160,80,134,2,132
  45. 112 DATA3,230,4,208,4,230,5,240,44,169,7,162,2,160,4,32,110
  46. 114 DATA194,208,237,166,4,164,5,142,250,255,140,251,255,162
  47. 116 DATA86,160,80,134,2,132,3,162,118,160,1,134,6,132,7,32
  48. 118 DATA126,193,169,0,133,128,162,62,160,194,142,155,132,140
  49. 120 DATA156,132,96,132,115,132,116,200,132,113,72,165,128
  50. 122 DATA208,80,169,255,133,128,152,72,165,2,72,165,3,72,173
  51. 124 DATA250,255,24,105,87,133,2,173,251,255,105,0,133,3,160
  52. 126 DATA3,173,155,132,145,2,200,173,156,132,145,2,200,173
  53. 128 DATA254,159,145,2,200,173,255,159,145,2,169,0,141,254
  54. 130 DATA159,169,32,141,255,159,165,2,141,155,132,165,3,141
  55. 132 DATA156,132,104,133,3,104,133,2,104,168,104,64,24,144
  56. 134 DATA101,0,0,0,0,67,79,80,89,32,88,88,45,88,88,45,88,88
  57. 136 DATA0,3,21,191,255,255,255,128,0,1,128,0,1,128,0,1,146
  58. 138 DATA103,49,146,148,169,158,247,41,146,148,169,146,148
  59. 140 DATA177,128,0,1,128,0,1,128,0,1,140,206,73,145,41,73,145
  60. 142 DATA46,49,145,40,33,140,200,65,128,0,1,128,0,1,128,0,1
  61. 144 DATA255,255,255,130,0,0,254,159,64,191,0,0,72,97,114,100
  62. 146 DATA99,111,112,121,32,161,194,173,155,132,24,105,12,133
  63. 148 DATA2,173,156,132,105,0,133,3,248,160,0,185,25,133,170
  64. 150 DATA169,0,24,202,48,4,105,1,208,249,170,152,72,160,7,145
  65. 152 DATA2,10,113,2,168,138,74,74,74,74,9,48,145,2,138,41,15
  66. 154 DATA9,48,200,145,2,104,168,200,192,3,208,207,216,173,155
  67. 156 DATA132,24,105,21,133,2,173,156,132,105,0,133,3,162,2
  68. 158 DATA160,129,134,4,132,5,162,83,160,0,134,6,132,7,32,126
  69. 160 DATA193,173,155,132,24,105,7,141,0,129,173,156,132,105
  70. 162 DATA0,141,1,129,32,180,193,171,0,85,129,0,169,0,133,22
  71. 164 DATA162,129,133,20,134,21,32,237,193,174,155,132,172,156
  72. 166 DATA132,134,2,132,3,160,3,177,2,141,155,132,200,177,2
  73. 168 DATA141,156,132,200,177,2,141,254,159,200,177,2,141,255
  74. 170 DATA159,169,0,133,128,96
  75. 178 DATA0,255,3,21,191,0,28,0,56,61,0,68,66,128,142,153,120
  76. 180 DATA143,0,244,144,28,12,144,62,12,144,67,12,144,153,12
  77. 182 DATA144,137,12,144,129,12,144,66,12,144,60,12,144,0,12
  78. 184 DATA143,255,240,192,60,0,112,126,0,120,207,0,121,137,128
  79. 186 DATA51,8,192,6,8,96,130,5,0,0,80,204,81,0,80,72,97,114
  80. 188 DATA100,99,111,112,121,32,32,32,32,86,49,46,51,0,0,0,0
  81. 190 DATA210,85,69,68,73,71,69,82,32,203,69,82,75,76,79,72
  82. 300 RESTORE
  83. 310 READA
  84. 320 PRINTA
  85. 330 GETS$:IFS$=""THEN330
  86. 340 GOTO310
  87.